codedir<-getwd()
setwd('..')
homedir<-getwd()
###
datadir<-file.path(
  homedir,
  "data"
)
filesdir<-file.path(
  homedir,
  "files"
)
outputdir<-file.path(
  homedir,
  "output"
)
metadir<-file.path(
  homedir,
  "meta"
)
setwd(homedir)
#also set the gsdir
#this is the location of your 
#ghostscript executable
#I have written it here so it is 
#flexible wrt the version #, 
#but that is not necessary
gsdir<-file.path(
  "c:",
  "Program Files",
  "gs"
)
gsdir_full<-file.path(
  gsdir,
  dir(gsdir), 
  "bin",
  "gswin64c.exe"
)
setwd(codedir)